<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>9</cardCount>
<cardID>4030</cardID>
<listID>5645</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal userL,pTypehide menubarhide message boxget userLevelput it into userLset userLevel to 5set cursor to nonedisable menu filedisable menu editdisable menu godisable menu objectsset the cantPeek of this stack to trueset the cantabort of this stack to trueplay gamblerrepeat with x = 1 to 6go cd xend repeatwait 5show cd fld creditwait 5show cd fld tellumget the short name of cd btn id 55 of cd tableput it into pTypelock screencurgo cd 7curput cd fld money into moncurget line 2 of cd fld jackpotcursend mouseUp to cd btn dealcurset the name of cd btn draw to "DEAL"curput mon into cd fld moneyput mon into cd fld money of cd "High/Low"curput it into line 2 of cd fld jackpothide cd btn "protectBet"unlock screen with shrink to center very Fastplay stophide cd fld credit of cd 6hide cd fld tellum of cd 6end openStackon dealItglobal dealer,dealer1,track,rateHand,pType,sitStaycurhide menubarput "Yes" into rateHandif the short name of cd btn id 24 is "DEAL" thenif cd fld Money is 0 thenAnswer"You are broke! The house will extend you a loan." with "Gee, Thanks!"getaloanput 0 into sitStayput "No" into rateHandexit DealItelse if ptype is "Casino" and (cd fld bet < 1 or cd fld bet > 10) thenAnswer"Improper bet!"&return&"Minimum = 1......Maximum = 10" with "Opps"put "No" into rateHandsend tabKey to cd fld betexit dealItelse if cd fld bet > cd fld money thenAnswer"You don't have that much money to bet." with "Opps"put "No" into rateHandsend tabKey to cd fld betexit dealItelse if cd fld bet < 1 or cd fld bet > cd fld money thenAnswer"Improper bet!" with "Opps"put "No" into rateHandsend tabKey to cd fld betexit dealItend ifsubtract cd fld bet from cd fld moneysubtract cd fld bet from cd fld money of cd "High/Low"put"Video Poker - Jacks or Better" into cd fld handif (pType is "Casino") and (cd fld Bet is 10) then put (line 2 of cd fld jackpot + 10) into line 2 of cd fld jackpotput cd fld cards into dealerput cd fld cards1 into dealer1currepeat with x = 8 to 12set the style of cd btn x to roundRectcurend repeatrepeat with x = 1 to 5curget random (the number of lines of dealer)put item 1 of line it of dealer into cd fld (x*2)put item 1 of line it of dealer into cd fld ((x*2)-1)set the icon of cd btn X to (item 2 of line it of dealer)set the style of cd btn (x+7) to transparentput line it of dealer1 into line x of trackdelete line it of dealerdelete line it of dealer1end repeatset the name of cd btn id 24 to "DRAW"elserepeat with x = 1 to 5curif the style of cd btn (x+7) is transparent then next repeatelseget random (the number of lines of dealer)put item 1 of line it of dealer into cd fld (x*2)put item 1 of line it of dealer into cd fld ((x*2)-1)set the icon of cd btn X to (item 2 of line it of dealer)put line it of dealer1 into line x of trackdelete line it of dealerdelete line it of dealer1set the style of cd btn (x+7) to transparentend ifend repeatset the name of cd btn id 24 to "DEAL"put sortfieldbyitem(track,1)into trackend ifcurshow cd btn id 53catchItend dealIton catchItrepeat until the mouseClick is falseend repeatend catchIton Curglobal crrif crr is empty then put 8313 into crrelse if crr is 8317 then put 8313 into crrset Cursor to crradd 1 to crrend Curon setHomeif cd fld money ‚⧠200 then set the icon of cd btn "HOME" of cd "Table" to 2034if cd fld money ‚â• 201 and cd fld money ‚⧠999 then set the icon of cd btn "HOME" of cd "Table" to 13745if cd fld money ‚â• 1000 and cd fld money ‚⧠49999 then set the icon of cd btn "HOME" of cd "Table" to 14681if cd fld money ‚
